home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / pvm34b3.zip / pvm34b3 / pvm3 / libfpvm / pvmfscatter.m4 < prev    next >
Text File  |  1997-07-22  |  660b  |  30 lines
  1.  
  2. /* $Id: pvmfscatter.m4,v 1.2 1996/10/04 15:27:33 pvmsrc Exp $ */
  3.  
  4. #include "pvm3.h"
  5. #include "pvm_consts.h"
  6.  
  7. void
  8. FUNCTION(pvmfscatter) ARGS(`result, data, count, datatype, msgtag, STRING_ARG(gname), rootinst, info')
  9. void *result, *data;
  10. int *count, *datatype, *msgtag, *rootinst, *info;
  11. STRING_ARG_DECL(gname);
  12. {
  13.   char tgroup[MAX_GRP_NAME + 1];
  14.  
  15.   /*
  16.    * Copy the group name to make sure there's a NUL at the end.
  17.    */
  18.  
  19.   if (ftocstr(tgroup,sizeof(tgroup),STRING_PTR(gname),STRING_LEN(gname)))
  20.     {
  21.     *info = PvmBadParam;
  22.     return;
  23.     }
  24.  
  25.   *info = pvm_scatter(result, data, *count, *datatype, *msgtag, tgroup, 
  26.                       *rootinst);
  27.  
  28. }
  29.  
  30.